.net - The Best of 1999/2000/netCD Special01.iso/pc/Software/Poco 1.2/pocosetup.exe/file0001.bin/0/RCDATA/TFRMADDRESSBOOK/TFRMADDRESSBOOK.txt

Text File | 2000-03-01 | 9.5 KB | 368 lines

object FrmAddressBook: TFrmAddressBook
  Left = 371
  Top = 202
  Width = 527
  Height = 389
  BorderIcons = [biSystemMenu]
  Caption = 'Address Book'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 519
    Height = 317
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 5
      Top = 181
      Width = 509
      Height = 4
      Cursor = crVSplit
      Align = alBottom
      ResizeStyle = rsUpdate
    end
    object Shape1: TShape
      Left = 5
      Top = 5
      Width = 509
      Height = 19
      Align = alTop
      Brush.Color = clMaroon
    end
    object Image1: TImage
      Left = 9
      Top = 7
      Width = 16
      Height = 16
      AutoSize = True
      Picture.Data = {<image000.bmp>}
      Transparent = True
    end
    object Label4: TLabel
      Left = 30
      Top = 6
      Width = 209
      Height = 16
      Caption = 'Add your frequent contacts below'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = 16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      Transparent = True
    end
    object Panel2: TPanel
      Left = 5
      Top = 24
      Width = 509
      Height = 157
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 0
      object AddressList: TListView
        Left = 2
        Top = 2
        Width = 505
        Height = 153
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
            Caption = 'Nickname'
            MaxWidth = 600
            Width = 100
          end
          item
            Caption = 'Full name'
            MaxWidth = 600
            Width = 150
          end
          item
            Caption = 'E-mail'
            MaxWidth = 600
            Width = 150
          end
          item
            Caption = 'Notes'
            Width = 100
          end>
        HideSelection = False
        HotTrackStyles = []
        ReadOnly = True
        RowSelect = True
        SmallImages = ImagesAddress
        SortType = stText
        TabOrder = 0
        ViewStyle = vsReport
        OnChange = AddressListChange
        OnColumnClick = AddressListColumnClick
        OnCompare = AddressListCompare
        OnKeyUp = AddressListKeyUp
      end
    end
    object Panel4: TPanel
      Left = 5
      Top = 185
      Width = 509
      Height = 127
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Panel8: TPanel
        Left = 191
        Top = 0
        Width = 318
        Height = 127
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Panel10: TPanel
          Left = 0
          Top = 0
          Width = 318
          Height = 127
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 0
          object PageControl1: TPageControl
            Left = 2
            Top = 2
            Width = 314
            Height = 123
            ActivePage = Tab1
            Align = alClient
            TabOrder = 0
            object Tab1: TTabSheet
              Caption = 'E-mail address(es):'
              object EmailList: TMemo
                Left = 0
                Top = 0
                Width = 306
                Height = 92
                Align = alClient
                BorderStyle = bsNone
                MaxLength = 65000
                ScrollBars = ssVertical
                TabOrder = 0
                OnChange = EmailListChange
                OnEnter = EmailListEnter
                OnExit = EmailListExit
              end
            end
            object Tab2: TTabSheet
              Caption = 'Notes:'
              ImageIndex = 1
              object MemoNotes: TMemo
                Left = 0
                Top = 0
                Width = 306
                Height = 92
                Align = alClient
                BorderStyle = bsNone
                MaxLength = 65000
                ScrollBars = ssVertical
                TabOrder = 0
                OnChange = MemoNotesChange
                OnEnter = EmailListEnter
                OnExit = MemoNotesExit
              end
            end
          end
        end
      end
      object Panel11: TPanel
        Left = 0
        Top = 0
        Width = 191
        Height = 127
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object Bevel1: TBevel
          Left = 10
          Top = 0
          Width = 170
          Height = 28
        end
        object Label1: TLabel
          Left = 12
          Top = 37
          Width = 64
          Height = 16
          Caption = '&Nickname:'
        end
        object Label2: TLabel
          Left = 12
          Top = 81
          Width = 61
          Height = 16
          Caption = '&Full name:'
        end
        object BtnNew: TSpeedButton
          Left = 11
          Top = 1
          Width = 84
          Height = 26
          Cursor = crHandPoint
          Hint = 'Create new address book entry'
          Caption = 'N&ew'
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777778777
            7777777777708777777777777770887777777777880F087887777770080F0800
            87777770F00F00F0777777780FFFFF08887778000FFFFF00088800FFFFFFFFFF
            F00777000FFFFF00077777770FFFFF0887777770F00F00F087777770070F0800
            77777777770F0777777777777770877777777777777077777777}
          OnClick = BtnNewClick
        end
        object BtnDelete: TSpeedButton
          Left = 95
          Top = 1
          Width = 84
          Height = 26
          Cursor = crHandPoint
          Hint = 'Delete the selected entry'
          Caption = '&Delete'
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777887777777
            7777770088777777887770990887778008877099908878099087770999088099
            9077777099900999077777770999999077777777809999087777777800999908
            8777778099999990887777099990099908877099990770999087709990777709
            9088770007777770990777777777777700777777777777777777}
          OnClick = BtnDeleteClick
        end
        object EditFirst: TEditN
          Left = 9
          Top = 54
          Width = 170
          Height = 24
          Hint = 'e.g. Jane'
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 0
          OnChange = EditFirstChange
          ColorOnFocus = clYellow
          ColorOnNotFocus = clWindow
          FontColorOnFocus = clBlack
          FontColorOnNotFocus = clWindowText
          EditType = etString
          EditKeyByTab = #9
          EditAlign = etAlignNone
          EditLengthAlign = 0
          EditPrecision = 0
          ValueInteger = 0
          ValueDate = 36159.000000000000000000
          ValueTime = 0.686039629629629600
          TimeSeconds = False
          FirstCharUpper = False
          FirstCharUpList = ' ('
          WidthOnFocus = 0
        end
        object EditLast: TEditN
          Left = 9
          Top = 98
          Width = 170
          Height = 24
          Hint = 'e.g. Smith'
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 1
          OnChange = EditLastChange
          ColorOnFocus = clYellow
          ColorOnNotFocus = clWindow
          FontColorOnFocus = clBlack
          FontColorOnNotFocus = clWindowText
          EditType = etString
          EditKeyByTab = #9
          EditAlign = etAlignNone
          EditLengthAlign = 0
          EditPrecision = 0
          ValueInteger = 0
          ValueDate = 36159.000000000000000000
          ValueTime = 0.686039629629629600
          TimeSeconds = False
          FirstCharUpper = False
          FirstCharUpList = ' ('
          WidthOnFocus = 0
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 317
    Width = 519
    Height = 45
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Panel7: TPanel
      Left = 282
      Top = 0
      Width = 237
      Height = 45
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object BtnCancel: TButton
        Left = 1
        Top = 7
        Width = 101
        Height = 31
        Cancel = True
        Caption = '&Cancel'
        ModalResult = 2
        TabOrder = 1
        OnClick = BtnCancelClick
      end
      object BtnOK: TButton
        Left = 117
        Top = 3
        Width = 111
        Height = 37
        Caption = '&OK'
        Default = True
        ModalResult = 1
        TabOrder = 0
        OnClick = BtnOKClick
      end
    end
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = HintTimerTimer
    Left = 5
    Top = 351
  end
  object ImagesAddress: TImageList
    Left = 297
    Top = 136
  end
end